home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Graphics / KaraCollection / TKC_Docs / Utilities / H / 2 / Assign-CD < prev    next >
Text File  |  1996-09-12  |  5KB  |  196 lines
  1. .Key LANGID
  2. .bra {
  3. .ket }
  4.  
  5. If NOT EXISTS RAM:KaraCDBusy
  6.   Echo > RAM:KaraCDBusy ";"
  7. Else
  8.   Echo "*N Configuration: The CD-ROM configuration task is already running.*N"
  9.   Wait 10 SECS
  10.   Skip END
  11. EndIf
  12.  
  13. Failat 21
  14.  
  15. Version >NIL: icon.library 34
  16. If WARN
  17.   Echo "*N Warning: The Kara Collection requires at least Workbench 1.3.*N"
  18.   Skip END
  19. EndIf
  20.  
  21. If EXISTS RAM:T/KaraCD-IPT/UndoAssign
  22.   RAM:T/KaraCD-IPT/Print >RAM:KaraCDRestoreAssign "Failat 21"
  23.   RAM:T/KaraCD-IPT/Print >>RAM:KaraCDRestoreAssign -n "Assign >NIL: KARACDROOT: "
  24.   RAM:T/KaraCD-IPT/ShowPath >>RAM:KaraCDRestoreAssign KARACDROOT:
  25.   Assign >NIL: KARACDLOCAL: EXISTS
  26.   If NOT WARN
  27.     RAM:T/KaraCD-IPT/Print >>RAM:KaraCDRestoreAssign -n "Assign >NIL: KARACDLOCAL: "
  28.     RAM:T/KaraCD-IPT/ShowPath >>RAM:KaraCDRestoreAssign KARACDLOCAL:
  29.   EndIf
  30.   Execute KARACDROOT:Utilities/H/2/Reset-CD SHARED
  31.   If EXISTS RAM:KaraCDRestoreAssign
  32.     Execute RAM:KaraCDRestoreAssign
  33.     Delete >NIL: RAM:KaraCDRestoreAssign QUIET
  34.   Else
  35.     Assign >NIL: KARACDROOT: KaraCD:
  36.     Assign >NIL: KARACDLOCAL: KARACDROOT:Utilities/H/7/{LANGID}
  37.   EndIf
  38. EndIf
  39.  
  40. If NOT EXISTS RAM:T
  41.   MakeDir RAM:T
  42. EndIf
  43.  
  44. Assign > NIL: T: EXISTS
  45. If WARN
  46.   Assign >NIL: T: RAM:T
  47. EndIf
  48.  
  49. If NOT EXISTS RAM:T/KaraCD-IPT
  50.   MakeDir RAM:T/KaraCD-IPT
  51. EndIf
  52.  
  53. CD RAM:T/KaraCD-IPT
  54.  
  55. If EXISTS C:Copy
  56.   Copy >NIL: C:Copy RAM:T/KaraCD-IPT CLONE
  57. EndIf
  58. If EXISTS C:Assign
  59.   Copy >NIL: C:Assign RAM:T/KaraCD-IPT CLONE
  60. EndIf
  61. If EXISTS C:Execute
  62.   Copy >NIL: C:Execute RAM:T/KaraCD-IPT CLONE
  63. EndIf
  64.  
  65. Copy KARACDROOT:Utilities/H/2/Print RAM:T/KaraCD-IPT CLONE
  66. Protect RAM:T/KaraCD-IPT/Print wd ADD
  67. Copy KARACDROOT:Utilities/H/2/ShowPath RAM:T/KaraCD-IPT CLONE
  68. Protect RAM:T/KaraCD-IPT/ShowPath wd ADD
  69. Copy KARACDROOT:Utilities/H/2/AddLine RAM:T/KaraCD-IPT CLONE
  70. Protect RAM:T/KaraCD-IPT/AddLine wd ADD
  71. Copy KARACDROOT:Utilities/H/2/MakeAssign RAM:T/KaraCD-IPT CLONE
  72. Protect RAM:T/KaraCD-IPT/MakeAssign wd ADD
  73. Copy KARACDROOT:Utilities/H/2/CheckVideo RAM:T/KaraCD-IPT CLONE
  74. Protect RAM:T/KaraCD-IPT/CheckVideo wd ADD
  75.  
  76. Print >RAM:T/KaraCD-IPT/InstallAssign -n "Execute KARACDROOT:Utilities/H/2/Assign-CD "
  77. Print >>RAM:T/KaraCD-IPT/InstallAssign "{LANGID}"
  78.  
  79. Assign >NIL: KARACD:
  80. Assign >NIL: KARACD: EXISTS
  81. If WARN
  82.   Execute MakeAssign KARACD: KARACDROOT:
  83. EndIf
  84.  
  85. Assign >NIL: KARACDLOCAL: KARACDROOT:Utilities/H/7/{LANGID}
  86.  
  87. Which >NIL: MultiView
  88. If WARN
  89.   If EXISTS SYS:Utilities/MultiView
  90.     Copy >NIL: SYS:Utilities/MultiView RAM: CLONE
  91.   Else
  92.     If EXISTS RAM:MultiView
  93.       Copy >NIL: RAM:MultiView RAM:MultiView.old CLONE
  94.     EndIf
  95.     If EXISTS SYS:Utilities/AmigaGuide
  96.       Copy >NIL: SYS:Utilities/AmigaGuide RAM:MultiView CLONE
  97.     Else
  98.       Copy >NIL: KARACDROOT:Utilities/H/2/AG34 RAM:MultiView CLONE
  99.       Protect RAM:MultiView wd ADD
  100.     EndIf
  101.   EndIf
  102. EndIf
  103.  
  104. Which >NIL: MultiView
  105. If WARN
  106.   Path >NIL: RAM: ADD
  107. EndIf
  108.  
  109. Assign > NIL: ENV: EXISTS
  110. If WARN
  111.   If NOT EXISTS RAM:ENV
  112.     MakeDir RAM:ENV
  113.   EndIf
  114.   Assign >NIL: ENV: RAM:ENV
  115. EndIf
  116.  
  117. SetEnv KaraCDLanguage {LANGID}
  118.  
  119. If NOT EXISTS ENV:PPaint
  120.   MakeDir ENV:PPaint
  121. Else
  122.   If EXISTS ENV:PPaint/Startup_A.set
  123.     Copy >NIL: ENV:PPaint/Startup_A.set ENV:PPaint/Startup_A.set.old CLONE
  124.   EndIf
  125. EndIf
  126. Print > ENV:PPaint/Startup_A.set "PPAINT SETTINGS*N"
  127. Print >>ENV:PPaint/Startup_A.set "LANG = {LANGID}"
  128. If EXISTS RAM:T/KaraCD-IPT/UndoAssign
  129.   Print >>RAM:T/KaraCD-IPT/UndoAssign "Delete >NIL: ENV:PPaint/Startup_A.set QUIET*NIf EXISTS ENV:PPaint/Startup_A.set.old*N  Rename ENV:PPaint/Startup_A.set.old ENV:PPaint/Startup_A.set*NEndIf"
  130. Else
  131.   Print >RAM:T/KaraCD-IPT/UndoAssign "Delete >NIL: ENV:PPaint/Startup_A.set QUIET*NIf EXISTS ENV:PPaint/Startup_A.set.old*N  Rename ENV:PPaint/Startup_A.set.old ENV:PPaint/Startup_A.set*NEndIf"
  132. EndIf
  133.  
  134. If EXISTS KARACDROOT:PPaint
  135.   Assign >NIL: PPAINT: EXISTS
  136.   If WARN
  137.     Execute MakeAssign PPAINT: KARACDROOT:PPaint
  138.   Else
  139.     Assign >NIL: PCDPPAINT: EXISTS
  140.     If WARN
  141.       Execute MakeAssign PCDPPAINT: PPAINT:
  142.     EndIf
  143.     If NOT EXISTS PPAINT:AnimBrushes
  144.       Execute MakeAssign PPAINT: KARACDROOT:PPaint
  145.     EndIf
  146.   EndIf
  147. EndIf
  148.  
  149. If NOT EXISTS ENV:ColorType
  150.   MakeDir ENV:ColorType
  151. Else
  152.   If EXISTS ENV:ColorType/Startup_A.set
  153.     Copy >NIL: ENV:ColorType/Startup_A.set ENV:ColorType/Startup_A.set.old CLONE
  154.   EndIf
  155. EndIf
  156. Print > ENV:ColorType/Startup_A.set "COLORTYPE SETTINGS*N"
  157. Print >>ENV:ColorType/Startup_A.set "LANG = {LANGID}"
  158. Print >>RAM:T/KaraCD-IPT/UndoAssign "Delete >NIL: ENV:ColorType/Startup_A.set QUIET*NIf EXISTS ENV:ColorType/Startup_A.set.old*N  Rename ENV:ColorType/Startup_A.set.old ENV:ColorType/Startup_A.set*NEndIf"
  159.  
  160. If EXISTS KARACDROOT:ColorType
  161.   Execute MakeAssign COLORTYPE: KARACDROOT:ColorType
  162. EndIf
  163.  
  164. If EXISTS KARACDROOT:PFM
  165.   If {LANGID} EQ 1
  166.     Execute MakeAssign PFM: KARACDROOT:PFM/DEU
  167.   Else
  168.     Execute MakeAssign PFM: KARACDROOT:PFM/ENG
  169.   EndIf
  170. EndIf
  171.  
  172. If EXISTS KARACDROOT:ColorFonts/Fonts
  173.   Version >NIL: icon.library 37
  174.   If NOT WARN
  175.     Assign FONTS: KARACDROOT:ColorFonts/Fonts ADD
  176.  
  177.     Print >RAM:T/KaraCD-IPT/TempLine -n "Assign >NIL: FONTS: "
  178.     ShowPath >>RAM:T/KaraCD-IPT/TempLine -n KARACDROOT:ColorFonts/Fonts
  179.     Print >>RAM:T/KaraCD-IPT/TempLine " REMOVE"
  180.  
  181.     Execute AddLine
  182.   EndIf
  183. EndIf
  184.  
  185. Print >RAM:T/KaraCD-IPT/TempLine "Failat 21"
  186. Execute AddLine
  187.  
  188. Delete >NIL: RAM:KaraCDBusy QUIET
  189.  
  190. Lab END
  191.  
  192.  
  193. ; Cloanto ® CD-ROM Configuration Scripts
  194. ; Copyright © 1995, 1996 Cloanto Italia srl - All Rights Reserved
  195. ; Cloanto is a registered trademark of Cloanto Italia srl
  196.